open Fr
open FrGui

val canvas:
	?menu: action_group ->
	?popup: unit event ->
	(Cairo.t -> unit) behavior -> widget * float input
